home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / c / m2param.mod < prev    next >
Encoding:
Modula Implementation  |  1988-08-16  |  1.1 KB  |  36 lines
  1. IMPLEMENTATION MODULE KermParam;
  2. (************************************************************************)
  3. (*  This module initializes and stores all global parameters            *)
  4. (*  written:            09.10.85     Matthias Aebi                      *)
  5. (*  last modification:  25.02.86     Matthias Aebi                      *)
  6. (************************************************************************)
  7.  
  8. FROM KermMisc IMPORT SetBaud;
  9.  
  10. BEGIN
  11.     LBaudRate     := 9600;
  12.     LCheckType    := 1;
  13.     LCurrPort     := 1;
  14.     LDebug        := FALSE;
  15.     LEcho         := FALSE;
  16.     LEOLChar      := CHR(13);
  17.     LEscChar      := CHR(28);    (* Ctrl-\ *)
  18.     LFileType     := text;
  19.     LFilNamConv   := TRUE;
  20.     LMaxRetries   := 13;
  21.     LNumOfPad     := 0;
  22.     LPackSize     := 94;
  23.     LPadChar      := CHR(0);
  24.     LParity       := none;
  25.     LPrefChar     := "&";
  26.     LPrompt       := "Kermit-M2";
  27.     LQuoteChar    := "#";
  28.     LStartChar    := CHR(1);    (* SOH *)
  29.     LTimeOut      := 10;
  30.     LTimer        := TRUE;
  31.     LWarning      := TRUE;
  32.     REOLChar      := CHR(13);
  33.  
  34.     SetBaud(LBaudRate, LCurrPort);
  35. END KermParam.
  36.